home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
easydr2.zip
/
EASYANSI.BI
< prev
next >
Wrap
Text File
|
1991-11-15
|
2KB
|
47 lines
' ANSI COLOR SUPPORT MODULE for Easy-Door V2.0b
'
' This module includes all the code to use ANSI escape sequence
' in your program without pain. If user do not have ANSI, variables
' will be set to an empty string ("").
' Example:
'
' CALL SendCR(Bright$ + Yellow$ + "Welcome to this DOOR!")
'
' Important: If you use too much color in your program, the display will be
' slow and, of course, not acceptable for the user.
' Five characters are needed to send a simple ANSI color code.
IF AnsiFlag$ > "0" THEN
AnsiReset$ = "" ' Put all mode to off, reset
Blink$ = "
" ' Put in blinking mode
Invert$ = "" ' Put in reverse video mode
Bright$ = "
" ' Put in high intensity mode (bright)
Down$ ="B" ' Cursor one line down
Up$ = "A" ' Cursor one line up
SavePos$ = "s" ' Save current cursor position
RestorePos$ = "u" ' Restore cursor position
AnsiCLS$ = "" ' ANSI Clear screen sequence
EraseLine$ = "" ' Erase current line
Black$ = "
" '
Red$ = "
" '
Green$ = "
" '
Yellow$ = "
" ' Foreground text color
Blue$ = "
" '
Magenta$ = "
" '
Cyan$ = "
" '
White$ = "
" '
BlackBack$ = "
" '
RedBack$ = "
" '
GreenBack$ = "
" '
YellowBack$ = "
" ' Background text color
BlueBack$ = "
" '
MagentaBack$ = "
" '
CyanBack$ = "
" '
WhiteBack$ = "
" '
END IF